home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / info / cad08n11.zip / TEST2.LSP < prev    next >
Lisp/Scheme  |  1994-02-01  |  297b  |  13 lines
  1. (defun C:test ()
  2.    (setq s (getstring "\nType something in.  "))
  3.    (terpri)(prompt s)
  4.    (princ "\nThis is a test without an error.  ")
  5.    (princ)
  6.  )
  7.  
  8.  (defun trap1 (msg)
  9.    (princ "\nAn error has occurred!  ")
  10.    (princ "\nThe error was:  ")(prompt msg)(prompt "  ")
  11.    (princ)
  12.  )
  13.